home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 17 / Developer Source Volume 17 (I-MODE Publications, Inc.)(2000).iso / delpp / fig7-06.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  35.5 KB  |  640x480  |  4-bit (15 colors)
   ocr: i Delphi 2.0 Bitshilt JX File Edit Search View Project Run Lomponent Database Workgroups Tools Help Standard Additional Win95 Dialogs System Data. Access Data Controls 1 - - A abll OR DE A ) Form3 L X Ubject inspector X Form3: TForm3 BITSHFTFPAS -OX Properties Events Bitshftf ActiveControl Memol procedure TForm3.ButtoniClick(Sender: TObject); - AutoScroll True +Borderlcons biSystemMenu, var BorderStyle bsSizeable i: Byte; Caption Form3 s: String; ClientHeight 273 Clientwidth 427 begin Color clBtnFace i:= 8; CH3D True Memol.Lines.Add("The remainder of 8 shl 2 is I Cursor crDefault + - IntTostr( ...